home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / mac / Time Warp / Time Warp.DXR / Shared_40.ls < prev    next >
Encoding:
Text File  |  1997-05-23  |  728 b   |  29 lines
  1. on restoreIcons
  2.   global IconCount, spriteList, Hand
  3.   if IconCount < 1 then
  4.     if IconCount < 0 then
  5.       set IconCount to 0
  6.     end if
  7.     exit
  8.   else
  9.     if count(spriteList) < 1 then
  10.       exit
  11.     end if
  12.   end if
  13.   set limit to count(spriteList) + 33
  14.   set counter to 0
  15.   repeat with i = 33 to limit - 1
  16.     puppetSprite(i, 1)
  17.     if the castNum of sprite i = 600 then
  18.       set icon to getAt(spriteList, counter + 1)
  19.       set the castNum of sprite i to icon
  20.       set the moveableSprite of sprite i to 1
  21.       set the locV of sprite i to 455
  22.       set the locH of sprite i to 615 - (counter * 48)
  23.       set the cursor of sprite i to Hand
  24.       set counter to counter + 1
  25.       updateStage()
  26.     end if
  27.   end repeat
  28. end
  29.